10 REM COPYRIGHT 1990 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
15 POKE53280,15:POKE53281,15
20 PRINT"[147][144]            COPYRIGHT 1990":PRINT"       COMPUTE! PUBLICATIONS, INC."
30 PRINT"          ALL RIGHTS RESERVED"
40 FORA=16000TO16383:READN:POKEA,N:NEXT:FORA=15936TO15999:POKEA,0:NEXT
50 INPUT " PLAYER 1'S NAME";P1$:IF P1$=""THEN50
60 INPUT " PLAYER 2'S NAME";P2$:IF P2$=""THEN60
70 A$="         "
80 P1$=LEFT$(P1$,9):IFLEN(P1$)<9THENP1$=P1$+LEFT$(A$,9-LEN(P1$))
90 P2$=LEFT$(P2$,9):IFLEN(P2$)<9THENP2$=P2$+LEFT$(A$,9-LEN(P2$))
100 H(1)=27:H(2)=27:H(3)=43:H(4)=59:H(5)=59:H(6)=43:W0=0:V=53248:S=54272
110 V(1)=70:V(4)=54:V(3)=102:V(2)=198:V(5)=182:V(6)=150:IN=4:MO=4:GOSUB590
120 FORTA=1TO6:GOSUB650:NEXT:POKEV+21,126
130 POKES+16,250:POKES+17,7:POKES+24,8:POKES+14,40
140 FORTA=1TO6:FORL=1TO10:M$(TA,L)="X":NEXT:NEXT:POKE198,0:PRINT:PRINT""P1$;
150 PRINT" --> [214] [214] [214] [214] [214] [214] [214] [214] [214] [214]":PRINT"[158]"P2$" --> [214] [214] [214] [214] [214] [214] [214] [214] [214] [214]";
160 FORXX=1TO2:POKE781,23+PL:POKE782,14:POKE783,PEEK(783)AND254:SYS65520
170 IFPL=0THENTA=1:POKE646,1
180 IFPL=1THENTA=4:POKE646,7
190 GOSUB790:IFXX=1THENPL=ABS(PL-1)
200 NEXT:L=1
210 IFPL=1THENFORTA=1TO6
220 IFPL=0THENFORTA=6TO1STEP-1
230 IFM$(TA,L)="X"THEN300
240 PP=PEEK(2040+TA):IFPP=250THEN300
250 POKES+14,180+TA*10:C=0:FORN=1TO5:IFM$(TA,L)=MID$("LRMF",N,1)THENC=N
260 NEXT:BR=0:IFTA>3THENBR=40
270 POKE1956+L*2+BR,ASC(M$(TA,L))-64:ONCGOSUB320,340,360,380
280 IFPEEK(2040+TA)<>250THENPOKE2040+TA,PP
290 IFW0<>0THENGOTO100
300 NEXT:L=L+1:IFL<11THEN210
310 PRINT"[145][145][145]":GOTO130
320 PP=PP+1:IFPP=256THENPP=252
330 RETURN
340 PP=PP-1:IFPP=251THENPP=255
350 RETURN
360 POKES+24,15:FORWW=1TOMO:ONPP-251GOSUB480,520,540,570
370 GOSUB650:GOSUB900:NEXT:POKES+24,8:RETURN
380 VO=15:POKES+24,VO:POKES+4,128:POKES+4,129:K=150:POKES+11,16:POKES+11,17
390 TT=TA:H(0)=H(TA)+2:V(0)=V(TA)-6:TA=0:BO=0:IN=16
400 IN=16:N=(PEEK(V+16)AND2^TT)/(2^TT):POKEV+16,(PEEK(V+16)AND254)ORN
410 IFPP=255ORPP=253THENPOKE15988,0:POKE15964,48:POKE15967,48:GOTO430
420 POKE15988,60:POKE15964,0:POKE15967,0:POKE15970,0
430 POKEV,H(0):POKEV+1,V(0):POKEV+21,PEEK(V+21)+1
440 K=K-1:ONPP-251GOSUB480,520,540,570:GOSUB650:POKES+8,K:GOSUB660
450 IFBO=1ANDTA=0ANDHI=0THENPOKEV+21,PEEK(V+21)-1:POKES+11,16
460 VO=VO-.5:POKES+24,VO:IFBO=0ANDHI=0THEN440
470 POKES+11,16:TA=TT:IN=4:RETURN
480 H(TA)=H(TA)-IN:IFH(TA)<22AND(PEEK(V+16)AND2^TA)/(2^TA)=0THENH(TA)=27:BO=1
490 IFH(TA)<0THENH(TA)=255+H(TA):POKEV+TA*2,H(TA):GOTO510
500 RETURN
510 POKEV+(16),(PEEK(V+16)AND(255-(2^TA))):RETURN
520 V(TA)=V(TA)+IN:IFV(TA)>204THENV(TA)=198:BO=1
530 RETURN
540 H(TA)=H(TA)+IN:IF(H(TA)>65AND(PEEK(V+16)AND2^TA)/(2^TA)=1)THENH(TA)=59:BO=1
550 IFH(TA)>255THENH(TA)=H(TA)-255:POKEV+16,(PEEK(V+16)OR(2^TA))
560 RETURN
570 V(TA)=V(TA)-IN:IFV(TA)<49THENV(TA)=54:BO=1
580 RETURN
590 POKE53281,14:PRINT"[147][153]";:POKE53280,14:FORC=1TO11:FORN=1TO20:PRINT"[146][207][208]";:NEXT
600 FORN=1TO20:PRINT"[204][186]";:NEXT:NEXT:FORN=0TO63:POKE15936+N,0:NEXT:POKE2041,253
610 POKE2042,255:POKE2044,253:POKE2045,255:POKE2043,254:POKE2046,252
620 POKE2040,249:POKEV+16,112:POKEV+37,2:POKEV+38,0:POKEV+28,255:FORN=STOS+24
630 POKEN,P:NEXT:POKES+5,12:POKES+1,10:POKES+12,1:POKES+13,169
640 FORN=1TO3:POKEV+39+N,1:NEXT:FORN=4TO6:POKEV+39+N,7:NEXT:POKEV+39,0
650 POKEV+TA*2,H(TA):POKEV+TA*2+1,V(TA):RETURN
660 HI=0:FORN=1TO6:IFN=TTTHEN710
670 IFABS(H(0)-H(N))>8THEN710
680 IFABS(V(0)-V(N))>8THEN710
690 IF(PEEK(V+16)AND1)<>(PEEK(V+16)AND2^N)/(2^N)THEN710
700 IFPEEK(2040+N)<>250THENHI=1:SP=N
710 NEXT:IFHI=0THENRETURN
720 IFCL=0THENPOKEV+21,PEEK(V+21)-1
730 POKE2040+SP,251:POKES+24,15:POKES+4,128:POKES+4,129:POKES+11,129
740 FORWA=1TO40:POKES+8,RND(0)*100:NEXT:POKES+24,8:POKES+11,128
750 POKEV+21,PEEK(V+21)AND(255-(2^SP)):POKE2040+SP,250:GOSUB960:RETURN
760 TA=TA+1:IFTA>(3+PL*3)THENTA=1+PL*3
770 IFPEEK(2040+TA)=250THENGOTO760
780 POKES+14,40+TA*10:RETURN
790 L=0
800 IFPEEK(2040+TA)=250THENGOSUB760:GOTO800
810 POKE204,0:CC=PEEK(V+39+TA):POKES+20,240:POKES+18,65
820 POKEV+39+TA,12:GETM$:POKE207,0:POKEV+39+TA,CC:IFM$=""THEN820
830 IFASC(M$)=20ANDL>0THENPOKE204,1:PRINT"[146][214][157][157][157][214][157]";:M$(TA,L)="X":L=L-1:GOTO810
840 IFM$=" "THENGOSUB760:GOTO810
850 C=0:FORN=1TO5:IFM$=MID$("LRMF",N,1)THENC=N+1
860 NEXT:IFC=0THENGOTO810
870 BR=0:IFTA>3THENBR=40
880 L=L+1:POKE204,1:PRINT" ";:M$(TA,L)=M$:IFL<10THEN810
890 RETURN
900 CL=0:FORN=1TO6:IFPEEK(2040+N)=250THEN940
910 IFN=TATHEN940
920 B1=(PEEK(V+16)AND(2^TA))/(2^TA):B2=(PEEK(V+16)AND(2^N))/(2^N)
930 IFB1=B2THENIFABS(H(TA)-H(N))<10ANDABS(V(TA)-V(N))<10THENCL=1:SP=N:GOSUB730
940 NEXT:IFCL=0THENRETURN
950 SP=TA:GOSUB730:RETURN
960 IFSP>3THEN990
970 W0=2:FORN=1TO3:IFPEEK(2040+N)<>250THENW0=0
980 NEXT:GOTO1010
990 W0=1:FORN=4TO6:IFPEEK(2040+N)<>250THENW0=0
1000 NEXT
1010 IFW0=0THENRETURN
1020 POKES+24,0:POKEV+21,0:POKE53281,1
1030 PRINT"[147][146]     CONGRATULATIONS TANK COMMANDER"
1040 IFW0=1THENPRINTSPC(5)P1$
1050 IFW0=2THENPRINTSPC(5)P2$
1060 PRINT"        PRESS ANY KEY TO CONTINUE":POKE198,0
1070 GETK$:IFK$=""THEN1070
1080 RETURN:DATA0,0,0,16,0,0,0,0,0,0,0,16,0,66,0,136,0,0,40,8,0,3,32,32,32
1090 DATA204,128,0,202,0,2,32,0,2,0,0,72,136,0,10,206,0,8,0,128,32,48,0,0,48
1100 DATA0,0,12,0,4,0
1110 DATA4,0,0,0,0,0,0,255,0,0,0,0,0,0,0,0,0,4,0,0,0,2,32,8,2,128,10,73,0,2,43
1120 DATA0,2,220,128,6,178,0,2,123,0,2,236,0,10,138,0,10,14,0,8,3,128,33,0,0
1130 DATA0,0,64,0,0,0,0,0,0,0,0,0,0,0,0,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1140 DATA0,0,0,0,59,184,0,255,255,2,167,214,2,159,250,255,255,250,2,159,250,2
1150 DATA167,214,0,255,255,0,187,184,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1160 DATA0,0,0,0,0,42,0,3,106,112,3,153,176,2,157,160,3,127,112,3,127,112,2
1170 DATA127,96,3,157
1180 DATA176,3,157,176,2,174,160,3,174,176,3,174,176,0,174,128,0,12,0,0,12,0,0
1190 DATA12,0,0,12,0,0,12,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,46,239
1200 DATA0,255,255,0,151,218,128,175,246,128,175,255,255,175,246,128,151,218
1210 DATA128,255,255,0,46,239,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12,0,0,12,0,0
1220 DATA12,0,0,12,0,0,12,0,0
1230 DATA174,128,3,174,176,3,174,176,2,174,160,3,157,176,3,157,176,2,127,96,3
1240 DATA127,112,3,127,112,2,157,160,3,153,176,3,106,112,0,42
1250 DATA0,0,0,0,0,0,0,0,0,0,0